0 REM  FROM Q-LINK DISK # 202
10 POKE53280,6:POKE53281,6:PRINT"[147][159]              [212] I T L E S
15 [153]"         SYS(null)RESS <(null)(null)ATNLENVAL>CLOSETO PAGE
20 PRINT"[154][213]SING THIS APPLICATION IS VERY EASY!
25 [153]"RIGHT$T'S PURPOSE IS TO GENERATE A TITLE ON
30 PRINT"YOUR SCREEN, WHICH, WHEN HOOKED UP TO
35 [153]"YOUR (null)LEN(null), CAN ALSO BE RECORDED ONTO A
40 PRINT"VIDEO TAPE. [201] USE THIS PROGRAM WHEN
45 [153]"RIGHT$'M EDITING MY CAMCORDER TAPES, SO
50 PRINT"THAT [201] CAN PRECEDE EACH NEW SUBJECT
55 [153]"WITH A TITLE.
60 PRINT"
65 [153]"(null)HE TITLES GENERATED ARE MADE UP OF 16
70 PRINT"PIXEL BY 16 PIXEL CUSTOM CHARACTERS,
75 [153]"WHICH MEANS THEY ARE ASC(null)(null)(null) TIMES THE
80 PRINT"SIZE OF REGULAR CHARACTERS.
85 [153]"
90 PRINT"[217]OU ALSO HAVE THE CHOICE OF FOUR
95 [153]"DIFFERENT FONTS.":[146]197,7
105 [153]"LOAD(null)O USE THE PROGRAM, LOAD AND (null)(null)(null) IT.
110 PRINT"[217]OU ARE PROMPTED FOR YOUR TITLE. [217]OU
115 [153]"ARE RESTRICTED TO A TITLE LENGTH OF
120 PRINT"50 CHARACTERS. [193]LL LETTERS AND NUMBERS
125 [153]"ARE SUPPORTED, AS WELL AS THE
130 PRINT"APOSTROPHE, COMMA, DASH AND PERIOD. [193]S
135 [153]"WELL, YOU HAVE THE (null)(null)ATNLENVAL AND A (null)LEFT$RIGHT$ASC(null)ED
140 PRINT"[211][208][193][195][197].
145 [153]"
150 PRINT"[212]HE [211][200][201][198][212]ED [211][208][193][195][197] IS USED AS A MEANS
155 [153]"OF MAKING SURE THAT THE TITLE IS NOT
160 PRINT"BROKEN IN AN UNATTRACTIVE PLACE. [198]OR
165 [153]"EXAMPLE, IF YOU TYPED:
170 PRINT"
175 [153]"STR$ATN(null)RIGHT$VAL(null)'(null) PEEKRIGHT$(null)(null)LEFT$STR$ATN(null) (null)ATN(null)(null)(null) ATN(null)CHR$(null)(null)(null) 31, 1990
180 PRINT"
185 [153]"STR$ATN(null)RIGHT$VAL(null)'(null) PEEKRIGHT$(null)(null)LEFT$STR$ATN(null) APPEARS ON LINE 1
190 PRINT"
195 [153]"(null)ATN(null)(null)(null) ATN(null)CHR$(null)(null)(null) 31, APPEARS ON LINE 2
200 PRINT"
205 [153]"AND 1990 APPEARS ON LINE 3.":[146]197,7
215 [153]"LOADRIGHT$F YOU WOULD WANT ATN(null)CHR$(null)(null)(null) 31, 1990 ALL
220 PRINT"ON ONE LINE( THE THIRD LINE ) THEN
225 [153]"TYPE A (null)LEFT$RIGHT$ASC(null)ED (null)(null)ATNLENVAL BETWEEN ATN(null)CHR$(null)(null)(null)
230 PRINT"AND 31, AND A [211][200][201][198][212]ED [211][208][193][195][197] BETWEEN
235 [153]"31, AND 1990. (null)HE PARSING ROUTINE DOES
240 PRINT"NOT RECOGNIZE THE [211][200][201][198][212]ED [211][208][193][195][197] AS A
245 [153]"BREAK POINT FOR YOUR TITLE, BUT IT
250 PRINT"WILL APPEAR THE SAME AS A SPACE WHEN
255 [153]"DISPLAYED.
260 PRINT"
265 [153]"ATNFTER YOU HAVE TYPED IN YOUR TITLE,
270 PRINT"YOU THEN CHOOSE YOUR FONT. [212]HE FONT
275 [153]"BE LOADED, AND THE TITLE WILL BE
280 PRINT"DISPLAYED.
285 [153]"
290 PRINT"[201]F YOU WANT TO CHANGE SOME COLORS OR
295 [153]"FONT, YOU CAN.":[146]197,7
305 [153]"LOAD      ASC1 - CHANGE THE BORDER COLOR
310 PRINT"      [198]3 - CHANGE THE BACKGROUND COLOR
315 [153]"      ASC5 - CHANGE THE CHARACTER COLOR
320 PRINT"      [198]7 - CHANGE THE FONT
325 [153]"      ANY OTHER KEY - ERASE THE TITLE
330 PRINT"      AND PROMPT FOR ANOTHER TITLE
340 [153]"ASC7 WILL TAKE YOU BACK TO THE FONT
345 PRINT"SELECTION MENU, LOAD THE NEW FONT, AND
350 [153]"THEN REDISPLAY YOUR TITLE IN THE NEW
355 PRINT"FONT.
395 [153]"(null)ROGRAM BY STR$AVID (null)OSE
400 PRINT"      [159][208]RESS <[211][208][193][195][197]> TO [204][207][193][196][154]":WAIT197,7
410 F$="TITLES":PRINT"[147][142]LOADF$,8[154]":POKE631,19:POKE632,131:POKE198,2